home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00826_SU-OU 1 en.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  527 b   |  18 lines
  1. on enterFrame
  2.   global gMaxBoutons, g1erSprLoc, g1erSprChr, exitFrame, gScopeEnB, gLabel, gPosVideo, gBoutons, gBarChron
  3.   curseur(6)
  4.   gScopeEnB(visible, 0)
  5.   gScopeEnZ(visible, 0)
  6.   if (gLabel <> "SU:IN EN") and (gLabel <> "SU:IN en fi") then
  7.     gScopeEnB(unLoad)
  8.     gScopeEnZ(unLoad)
  9.   end if
  10.   gBarChron(fleche, 0, 1, 2)
  11.   gBoutons(relache, g1erSprLoc + 1)
  12.   repeat with i = g1erSprChr to gMaxBoutons
  13.     puppetSprite(i, 0)
  14.   end repeat
  15.   set the foreColor of cast "ZI5" to the foreColor of cast "jaune"
  16.   curseur(6)
  17. end
  18.